home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 December / Ahoy_Magazine_87-12_1987_Double_L.d64 / Redirect 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  59 lines
  1. 0 rem *** redirect c-64 ***
  2. 10 forj=49152to49240:reada:pokej,a:nextj
  3. 20 printchr$(147)tab(16)chr$(18)"redirect"
  4. 30 l$=" --------------------------------------"
  5. 40 j=0:s=1:n$="":print:print"file name? ";:printchr$(34);
  6. 50 poke204,0:geta$:ifa$=""then50
  7. 60 ifa$=chr$(13)thenpoke204,1:printchr$(34)a$:goto120
  8. 70 ifj>15thenpoke204,1:printa$:goto110
  9. 80 ifa$=chr$(20)andj<1then50
  10. 90 printa$;:ifa$=chr$(20)thenj=j-1:n$=left$(n$,j):goto50
  11. 100 n$=n$+a$:j=j+1:goto50
  12. 110 print:printchr$(18)"you are over the 16 character limit.":goto40
  13. 120 ifn$=""thenprintchr$(18)"please enter a file name.":goto40
  14. 130 ifn$="$"thensys49152:poke198,0:gosub470:close15:printl$:goto40
  15. 140 r$=chr$(34)+n$+chr$(34)
  16. 150 print"searching for ";r$
  17. 160 iflen(n$)<16thenn$=n$+chr$(160):goto160
  18. 170 open15,8,15:open5,8,5,"#"
  19. 180 print#15,"u1";5;0;18;s:gosub480:l=4
  20. 190 b$="":j=1
  21. 200 print#15,"b-p";5;j+l:get#5,a$:ifa$=""thena$=chr$(0)
  22. 210 b$=b$+a$:ifleft$(b$,j)<>left$(n$,j)then240
  23. 220 j=j+1:ifj>16then290
  24. 230 goto200
  25. 240 l=l+32:ifl<229then190
  26. 250 forp=0to1:print#15,"b-p";5;p:get#5,a$:ifa$=""thena$=chr$(0)
  27. 260 a(p)=asc(a$):nextp:ifa(0)<>18ora(1)<1ora(1)>18then280
  28. 270 s=a(1):goto180
  29. 280 print:print"unable to locate ";r$:goto390
  30. 290 gosub440:print:printl$:ifct=1then310
  31. 300 f1$=f2$:s1=s:l1=l:ct=1:close5:close15:goto40
  32. 310 print"swapping...":printl$
  33. 320 print#15,"u1";5;0;18;s:gosub480
  34. 330 print#15,"b-p";5;l:print#5,f1$;
  35. 340 print#15,"u2";5;0;18;s:gosub480
  36. 350 print#15,"u1";5;0;18;s1:gosub480
  37. 360 print#15,"b-p";5;l1:print#5,f2$;
  38. 370 print#15,"u2";5;0;18;s1:gosub480
  39. 380 print"done..."
  40. 390 close5:close15:printl$:print
  41. 400 input"another swap (y/n/$)";a$:ifa$="y"thenclr:goto20
  42. 410 ifa$="n"thenend
  43. 420 ifa$="$"thensys49152:poke198,0:gosub470:close15:printl$:print
  44. 430 goto400
  45. 440 f2$="":l=l-2:forj=0to29
  46. 450 print#15,"b-p";5;j+l:get#5,a$:ifa$=""thena$=chr$(0)
  47. 460 f2$=f2$+a$:nextj:return
  48. 470 open15,8,15
  49. 480 input#15,en,em$,et,es:ifen=0thenreturn
  50. 490 printen;em$;et;es:close5:close15:end
  51. 500 data32,68,229,169,36,133,251,169,5,162,8,160
  52. 510 data0,32,186,255,169,1,162,251,160,0,32,189
  53. 520 data255,32,192,255,162,5,32,198,255,32,207,255
  54. 530 data32,207,255,32,207,255,32,207,255,32,207,255
  55. 540 data72,32,207,255,168,104,170,165,144,208,22,152
  56. 550 data32,205,189,169,32,32,210,255,32,207,255,208
  57. 560 data248,169,13,32,210,255,184,80,214,32,204,255
  58. 570 data169,5,76,195,255
  59.